home *** CD-ROM | disk | FTP | other *** search
/ One Click 14 / OneClick14.iso / Ferramentas / Convert XLS to Pdf / xls2pdf_setup.exe / {app} / lib / gs_epsf.ps < prev    next >
Encoding:
Text File  |  2002-11-21  |  7.5 KB  |  251 lines
  1. %    Copyright (C) 1989, 1996, 2002 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This software is provided AS-IS with no warranty, either express or
  4. % implied.
  5. % 
  6. % This software is distributed under license and may not be copied,
  7. % modified or distributed except as expressly authorized under the terms
  8. % of the license contained in the file LICENSE in this distribution.
  9. % 
  10. % For more information about licensing, please refer to
  11. % http://www.ghostscript.com/licensing/. For information on
  12. % commercial licensing, go to http://www.artifex.com/licensing/ or
  13. % contact Artifex Software, Inc., 101 Lucas Valley Road #110,
  14. % San Rafael, CA  94903, U.S.A., +1(415)492-9861.
  15.  
  16. % $Id: gs_epsf.ps,v 1.11 2002/11/21 09:40:06 ghostgum Exp $
  17. % Allow the interpreter to encapsulate EPS files, to recognize MS-DOS 
  18. % EPSF file headers, and skip to the PostScript section of the file.
  19.  
  20. % Encapsulate EPS files and optionally resize page or rescale image.
  21. % To display an EPS file cropped to the bounding box:
  22. %  gs -dEPSCrop file.eps
  23. % To display an EPS file scaled to fit the page:
  24. %  gs -dEPSFitPage file.eps
  25. % To display a file without EPS encapsulation:
  26. %  gs -dNOEPS file.ps
  27.  
  28. % When starting to process an EPS file, state is 0.
  29. % After %%BoundingBox processed, state is 1.
  30. % After %%HiResBoundingBox processed, state is 2.
  31. % After %%EndComments processed, state is 3.
  32. /EPSBoundingBoxState 3 def
  33. /EPSBoundingBoxSetState {
  34.   //systemdict /EPSBoundingBoxState 3 -1 roll .forceput
  35. } .bind odef % .forceput must be bound and hidden
  36.  
  37. % Parse 4 numbers for a bounding box
  38. /EPSBoundingBoxParse { % (llx lly urx ury) -- llx lly urx ury true OR false
  39.     mark exch
  40.     token {exch token {exch token {exch token {exch pop} if} if} if} if
  41.     counttomark
  42.     4 eq {
  43.       5 -1 roll pop % remove mark
  44.       true
  45.     } {
  46.       cleartomark false
  47.     } ifelse
  48. } bind def
  49.  
  50. % Rescale and translate to fit the BoundingBox on the page
  51. /EPSBoundingBoxFitPage { % llx lly urx ury --
  52.   DEBUG { (gs_epsf.ps: Rescaling EPS to fit page\n) print flush } if
  53.   clippath pathbbox newpath
  54.   % translate to new origin at lower left of clippath
  55.   3 index 3 index translate
  56.   % calculate scale to fit smaller of width or height
  57.   exch 4 -1 roll sub 3 1 roll exch sub 
  58.   4 2 roll 5 index 5 index 4 2 roll
  59.   exch 4 -1 roll sub 3 1 roll exch sub 
  60.   4 2 roll
  61.   exch 4 -1 roll div 3 1 roll exch div
  62.   1 index 1 index lt {pop}{exch pop} ifelse
  63.   dup scale
  64.   % translate to EPS -llx,-lly
  65.   exch neg exch neg translate
  66. } bind def
  67.  
  68. % Crop the page to the BoundingBox
  69. /EPSBoundingBoxCrop { % llx lly urx ury --
  70.   DEBUG { 
  71.     (gs_epsf.ps: Setting pagesize from EPS bounding box\n) print flush 
  72.   } if
  73.   exch 3 index sub exch 2 index sub % stack: llx lly urx-llx ury-lly
  74.   << /PageSize [ 5 -2 roll ] >> setpagedevice
  75.   neg exch neg exch translate
  76. } bind def
  77.  
  78.  
  79. /EPSBoundingBoxProcess { % (llx lly urx ury) state --
  80.   //systemdict /EPSBoundingBoxState get 1 index lt {
  81.     exch EPSBoundingBoxParse 
  82.     {
  83.       //systemdict /EPSCrop known {
  84.         EPSBoundingBoxCrop
  85.       } {
  86.         //systemdict /EPSFitPage known {
  87.           EPSBoundingBoxFitPage
  88.     } {
  89.       % Warn if some of the EPS file will be clipped
  90.       clippath pathbbox newpath
  91.       { % context for exit
  92.         5 -1 roll lt { 6 { pop } repeat true exit } if
  93.         4 -1 roll lt { 4 { pop } repeat true exit } if
  94.         3 -1 roll gt { 2 { pop } repeat true exit } if
  95.         exch gt { true exit } if
  96.         false exit
  97.       } loop
  98.       QUIET not and {
  99.         (\n   **** Warning: Some of the BoundingBox for the EPS file will be clipped.) =
  100.         (                 Use -dEPSCrop or -dEPSFitPage to avoid clipping.\n) =
  101.         flush
  102.       } if
  103.     } ifelse
  104.       } ifelse
  105.       EPSBoundingBoxSetState
  106.     } {
  107.       pop % state
  108.     } ifelse
  109.   } {
  110.     pop pop
  111.   } ifelse
  112. } bind def
  113.  
  114. /ProcessEPSComment { % file comment --  file comment
  115.   //systemdict /EPSBoundingBoxState get 3 lt {
  116.     dup
  117.     (%%EndComments) anchorsearch {
  118.       pop pop
  119.       % ignore any following bounding boxes
  120.       3 EPSBoundingBoxSetState
  121.     } {
  122.       (%%BoundingBox:) anchorsearch {
  123.     pop 
  124.     DEBUG { (gs_epsf.ps: found %%BoundingBox\n) print flush } if
  125.     1 EPSBoundingBoxProcess
  126.       } {
  127.     (%%HiResBoundingBox:) anchorsearch {
  128.       pop 
  129.       DEBUG { (gs_epsf.ps: found %%HiResBoundingBox\n) print flush } if
  130.     2 EPSBoundingBoxProcess
  131.     } { 
  132.       pop % Not interested in this DSC comment
  133.     } ifelse
  134.       } ifelse
  135.     } ifelse
  136.   } if
  137. } bind def
  138.  
  139. % Install EPS handler for DSC comments, which we do later
  140. /EPSBoundingBoxInit {
  141.   systemdict /NOEPS known not {
  142.     % Merge ProcessEPSComment with existing handler
  143.     /ProcessEPSComment load /exec load
  144.     currentuserparams /ProcessDSCComment get 
  145.     dup null eq {pop {pop pop}} if /exec load
  146.     4 array astore cvx readonly
  147.     << /ProcessDSCComment 3 -1 roll >> setuserparams
  148.   } if
  149. } bind def
  150.  
  151. /.runNoEPS /run load def
  152.  
  153. /.runEPS { % file OR string --
  154.   /runEPS_save save def
  155.   /runEPS_dict_count countdictstack def
  156.   /runEPS_op_count count 2 sub def
  157.   /runEPS_page_count currentpagedevice /PageCount get def 
  158.   0 EPSBoundingBoxSetState
  159.   .runNoEPS
  160.   currentpagedevice /PageCount get runEPS_page_count sub 0 eq { showpage } if
  161.   count runEPS_op_count sub {pop} repeat
  162.   countdictstack runEPS_dict_count sub {end} repeat
  163.   runEPS_save restore
  164. } bind def
  165.  
  166. /run { % file OR string --
  167.   dup type /filetype ne { (r) file } if
  168.   dup (%!PS-Adobe-) .peekstring {
  169.     (%!PS-Adobe-) eq {
  170.       dup (%!PS-Adobe-X.X EPSF-X.X) .peekstring {
  171.       (EPSF) search {
  172.         pop pop pop
  173.         DEBUG {(runEPS: Found EPS\n) print flush} if
  174.         systemdict /NOEPS known {
  175.           cvx .runNoEPS
  176.         } {
  177.           cvx .runEPS
  178.         } ifelse
  179.       } {
  180.         DEBUG {(runEPS: Normal DSC\n) print flush} if
  181.         pop
  182.           cvx .runNoEPS
  183.  
  184.       } ifelse
  185.       } {
  186.         DEBUG {(runEPS: Short DSC\n) print flush} if
  187.       pop
  188.         cvx .runNoEPS
  189.       } ifelse
  190.     } {
  191.       DEBUG {(runEPS: Not DSC\n) print flush} if
  192.       cvx .runNoEPS
  193.     } ifelse
  194.   } {
  195.     DEBUG {(runEPS: Short non-DSC\n) print flush} if
  196.     pop
  197.     cvx .runNoEPS
  198.   } ifelse
  199. } bind odef
  200.  
  201.  
  202. % Handle DOS EPS files.
  203.  
  204. /.runnoepsf /run load def
  205. /.epsfheader <C5D0D3C6> def
  206. /run
  207.  { dup type /filetype ne { (r) file } if
  208.         % Check for MS-DOS EPSF file (see Red Book p. 729).
  209.    true exch 0 1 3
  210.     {        % Stack: true file index
  211.       1 index read dup { pop dup .epsfheader 3 index get eq } if
  212.        { pop pop }    % if matched, don't need the character
  213.        {    % unread characters (wasn't EPSF)
  214.      2 index exch unread     % unread mismatch character
  215.      dup {   % loop unreading backwards in .epsfheader
  216.        1 sub dup .epsfheader exch get 2 index exch unread
  217.      } repeat pop
  218.      exch not exch exit    % change true to false
  219.        }
  220.       ifelse
  221.     }
  222.    for exch    % Stack: file true/false
  223.     {        % This block is executed if the file is MS-DOS EPSF.
  224.         % Build up the little-endian byte offset and length.
  225.       2
  226.     { 1 0 4
  227.        { 2 index read not { pop exit } if % if EOF, let error happen
  228.          2 index mul add exch 256 mul exch
  229.        }
  230.       repeat exch pop exch
  231.     }
  232.       repeat
  233.         % Stack: offset length file
  234.         % Use flushfile to skip quickly to the start of the
  235.         % PostScript section.
  236.       dup 4 -1 roll 12 sub () /SubFileDecode filter flushfile
  237.         % Now interpret the PostScript.
  238.       exch () /SubFileDecode filter cvx run
  239.     }
  240.     { .runnoepsf
  241.     }
  242.    ifelse
  243.  } odef
  244.  
  245. % rebind .runstdin to use redefined run
  246. userdict begin
  247. /.runstdin {
  248.   { (%stdin) run } execute0
  249. } bind def
  250. end
  251.